home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Graphics / View.asm < prev   
Assembly Source File  |  1991-03-13  |  2KB  |  156 lines
  1. *
  2. *    View.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedures and functions
  6. *    defined in Include/Graphics/View.i
  7. *
  8.  
  9.     SECTION PCQ_Runtime,CODE
  10.  
  11.     XREF    _GfxBase
  12.  
  13.     XREF    _LVOFreeColorMap
  14.     XDEF    _FreeColorMap
  15. _FreeColorMap
  16.     move.l    4(sp),a0
  17.     move.l    _GfxBase,a6
  18.     jmp    _LVOFreeColorMap(a6)
  19.  
  20.  
  21.     XREF    _LVOFreeVPortCopLists
  22.     XDEF    _FreeVPortCopLists
  23. _FreeVPortCopLists
  24.     move.l    4(sp),a0
  25.     move.l    _GfxBase,a6
  26.     jmp    _LVOFreeVPortCopLists(a6)
  27.  
  28.  
  29.     XREF    _LVOGetColorMap
  30.     XDEF    _GetColorMap
  31. _GetColorMap
  32.     move.l    4(sp),d0
  33.     move.l    _GfxBase,a6
  34.     jmp    _LVOGetColorMap(a6)
  35.  
  36.  
  37.     XREF    _LVOGetRGB4
  38.     XDEF    _GetRGB4
  39. _GetRGB4
  40.     movem.l    4(sp),d0/a0
  41.     move.l    _GfxBase,a6
  42.     jmp    _LVOGetRGB4(a6)
  43.  
  44.  
  45.     XREF    _LVOInitView
  46.     XDEF    _InitView
  47. _InitView
  48.     move.l    4(sp),a1
  49.     move.l    _GfxBase,a6
  50.     jmp    _LVOInitView(a6)
  51.  
  52.  
  53.     XREF    _LVOInitVPort
  54.     XDEF    _InitVPort
  55. _InitVPort
  56.     move.l    4(sp),a0
  57.     move.l    _GfxBase,a6
  58.     jmp    _LVOInitVPort(a6)
  59.  
  60.  
  61.     XREF    _LVOLoadRGB4
  62.     XDEF    _LoadRGB4
  63. _LoadRGB4
  64.     move.w    4(sp),d0
  65.     move.l    6(sp),a1
  66.     move.l    10(sp),a0
  67.     move.l    _GfxBase,a6
  68.     jmp    _LVOLoadRGB4(a6)
  69.  
  70.  
  71.     XREF    _LVOLoadView
  72.     XDEF    _LoadView
  73. _LoadView
  74.     move.l    4(sp),a1
  75.     move.l    _GfxBase,a6
  76.     jmp    _LVOLoadView(a6)
  77.  
  78.  
  79.     XREF    _LVOMakeVPort
  80.     XDEF    _MakeVPort
  81. _MakeVPort
  82.     move.l    4(sp),a1
  83.     move.l    8(sp),a0
  84.     move.l    _GfxBase,a6
  85.     jmp    _LVOMakeVPort(a6)
  86.  
  87.  
  88.     XREF    _LVOMrgCop
  89.     XDEF    _MrgCop
  90. _MrgCop
  91.     move.l    4(sp),a1
  92.     move.l    _GfxBase,a6
  93.     jmp    _LVOMrgCop(a6)
  94.  
  95.  
  96.     XREF    _LVOScrollVPort
  97.     XDEF    _ScrollVPort
  98. _ScrollVPort
  99.     move.l    4(sp),a0
  100.     move.l    _GfxBase,a6
  101.     jmp    _LVOScrollVPort(a6)
  102.  
  103.  
  104.     XREF    _LVOSetRGB4
  105.     XDEF    _SetRGB4
  106. _SetRGB4
  107.     movem.l    d2/d3,-(sp)
  108.     move.w    12(sp),d3
  109.     move.w    14(sp),d2
  110.     move.w    16(sp),d1
  111.     move.w    18(sp),d0
  112.     move.l    20(sp),a0
  113.     move.l    _GfxBase,a6
  114.     jsr    _LVOSetRGB4(a6)
  115.     movem.l    (sp)+,d2/d3
  116.     rts
  117.  
  118.     XREF    _LVOSetRGB4CM
  119.     XDEF    _SetRGB4CM
  120. _SetRGB4CM
  121.     movem.l    d2/d3,-(sp)
  122.     move.w    12(sp),d3
  123.     move.w    14(sp),d2
  124.     move.w    16(sp),d1
  125.     move.w    18(sp),d0
  126.     move.l    20(sp),a0
  127.     move.l    _GfxBase,a6
  128.     jsr    _LVOSetRGB4(a6)
  129.     movem.l    (sp)+,d2/d3
  130.     rts
  131.  
  132.  
  133.  
  134.     XREF    _LVOVBeamPos
  135.     XDEF    _VBeamPos
  136. _VBeamPos
  137.     move.l    _GfxBase,a6
  138.     jmp    _LVOVBeamPos(a6)
  139.  
  140.  
  141.     XREF    _LVOWaitBOVP
  142.     XDEF    _WaitBOVP
  143. _WaitBOVP
  144.     move.l    4(sp),a0
  145.     move.l    _GfxBase,a6
  146.     jmp    _LVOWaitBOVP(a6)
  147.  
  148.  
  149.     XREF    _LVOWaitTOF
  150.     XDEF    _WaitTOF
  151. _WaitTOF
  152.     move.l    _GfxBase,a6
  153.     jmp    _LVOWaitTOF(a6)
  154.  
  155.     END
  156.